Для протабулирования функции с помощью цикла for в Паскале можно использовать следующий код:

program TabulateFunction;
var
i: Integer;
x: Real;
function MyFunction(x: Real): Real;
begin
// Здесь определяется ваша функция
Result := x * x; // Например, функция y = x^2
end;
begin
// Протабулируем функцию на интервале от 1 до 10
for i := 1 to 10 do
begin
x := i;
writeln('x = ', x, ', y = ', MyFunction(x));
end;
end.

Этот код создает программу, которая протабулирует функцию y = x^2 на интервале от 1 до 10. Вы можете изменить функцию MyFunction(x: Real): Real; на любую другую функцию, которую вам необходимо протабулировать.