Megírnátok Free Pascalal nekem egy programot? (többi lent)

program feladat;

uses crt;

var s: array [1..3] of string; i: integer;

begin

clrscr;

for i:=1 to 3 do

begin

writeln (i,'. élelmiszer neve és ára: ');

read (str[i]);

end;

clrscr;

for i:=1 to 3 do

begin

writeln (str[i]);

end;

readln;

end.

Nem futtattam le, meg persze piszok régen programoztam pascalba, szval lehet van benne hiba.