Pascal programa

Vakar buvau su prašymu dėl programos gavau varianta su C++ bet man reiktu su pascaliu.Tai jei kas nors moka su juo dirbti gal galėtumet ją padaryt, nes nelabai nusimanau kaip programuoti.Prikabinu failą

sav_d_failai_masyvai.pdf

program Noname0;

type masReal = array[0..255] of real;
type masInt = array[0..255] of integer;

procedure skaitymas(var n:integer; var s,v:masInt; var sk,vk:masReal);
var duom: text;
   i: integer;
begin
   Assign(duom,'duomenys.txt');
   Reset(duom);
   Readln(duom,n);
   for i:=1 to n do
   begin
       Readln(duom,s[i],v[i],sk[i],vk[i]);
   end;
   Close(duom);
end;

procedure rasymas(var n:integer;var s,v:masInt; var sk,vk:masReal);
   var i:integer;
   var rez:text;
begin
   Assign(rez,'Rezultatai.txt');
   Rewrite(rez);
   for i:=1 to n do
   begin
       Writeln(rez,s[i]+v[i],' ',s[i]*sk[i]+v[i]*vk[i]:2:2);
   end;
   close(rez);
end;

var n: integer;
   s,v:masInt;
   sk,vk: masReal;
begin
 Skaitymas(n,s,v,sk,vk);
 Rasymas(n,s,v,sk,vk);
end.