Pascal ir masyvai

Sveiki,

ar galetumėte parašyti programą, kuri nuskaitytų iš failo duomenis į du Masyvus (x ir y) ir juos atvaizduotų. Niekaip su sintakse nesusidraugauju.

duom.txt

6
-8 6
4 4
-2 -2
-8 -6
6 8
1 7

Prašau

program masyvas;
var n,i:integer;
var x,y:array[0..100] of integer;
var duom:text;

begin
   assign(duom, 'duom.txt');
   reset(duom);
   ReadLn(duom, n);

   for i:= 1 to n do
       begin
       Read(duom,x[i]); Read(duom,y[i]);
       end;
   close(duom);

   for i:= 1 to n do
       begin
       writeln(x[i],' ',y[i]);
       end;

   ReadLn();

end.

Prašau

program masyvas;
var n,i:integer;
var x,y:array[0..100] of integer;
var duom:text;

begin
   assign(duom, 'duom.txt');
   reset(duom);
   ReadLn(duom, n);

   for i:= 1 to n do
       begin
       Read(duom,x[i]); Read(duom,y[i]);
       end;
   close(duom);

   for i:= 1 to n do
       begin
       writeln(x[i],' ',y[i]);
       end;

   ReadLn();

end.

Dėkui. Ėsmę suprantu, bet nemoku sintaksės tvarkingai sudėliot.

Dėkui. Ėsmę suprantu, bet nemoku sintaksės tvarkingai sudėliot.

Nėra už ką, jei ko nesupratai, klausk, padėsiu :)

Dar norėjau paklausti, kaip padaryti šią programą su procedūrą ir kad tą procedūrą atvaizduotų?

Užduotis: surasti iš duotų koordinačių faile duom.txt, kuri yra labiausiai nutolusi nuo koordinačių plokštumos centro (0;0). Užrašyti jos eilės numerį ir koordinates. Bet meta klaidas:

http://i.imgur.com/lXt4vJj.png

Programa:

program masyvas;

var k, i : integer;
var ats, t : real;

Type mas = array [1..30] of real;


procedure nuskaitymas(var X : mas; var Y : mas; var n : integer);
var i : integer;
F : text;

begin
   Assign(F, 'duom.txt');
   Reset(F);
   ReadLn(F, n);

   for i:= 1 to n do
       begin
       Read(F, X[i]); Read(F, Y[i]);
       end;

   end;


begin


   nuskaitymas(X, Y, n)

   for i :=  1 to n do
       begin
       ats:=((X[i]-0)^2 + (Y[i]-0)^2)^0,5;

       t:=0;

           if ats > t then do
           ats:= t;
           i:=k;

   end;

WriteLn('Labiausiai nutoles nuo koordinaciu plokstumos centro yra: ', k, ' taskas', x[i], ' ', y[i]);

Close(F);

end.