перевести программку из консоли в форму

[larissia]

var a : array [0..6] of real; 

function p(y : real) : real; 
begin 
p := a[0] + a[1]*y + a[2]*y*y + a[3]*y*y*y + a[4]*y*y*y*y + a[5]*y*y*y*y*y + a[6]*y*y*y*y*y*y; 
end; 

var i : byte; 
begin 
WriteLn('Введите значения A:'); 
for i := 0 to 6 do begin Write('A', i, ' = '); ReadLn(a[ i ]); end; 
for i := 1 to 3 do WriteLn('p(', i, '+1)-p(', i, ') = ', p( i + 1 ) - p( i )); 
end.

[veniside]

и что вас насторожило?