Даны координаты трех вершин треугольника, описать их как записи. найти длины сторон этого треугольника. я вас умоляю, решите , нужно

program qfdw; uses crt; type    vershina=record            tochka: string;             x,y: real;         end;     ps=file of vershina; var f: ps;       z,a,b,c: vershina;   i: integer; begin  assign(f,'1.dat');   rewrite(f);   writeln('введите вершины треугольника и их координаты: ');   for i: =1 to 3 do      begin          writeln(i,'-я вершина');           write('буква: '); read(z.tochka);           write('x='); read(z.x);           write('y='); read(z.y);           write(f,z);       end;   close(f);   assign(f,'1.dat');   reset(f);   read(f,a);     read(f,b);     read(f,c);     close(f);   writeln('cтороны треугольника: ');   writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)): 5: 2);   writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)): 5: 2);   writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)): 5: 2); end.