Помогите дописать

[ShnapS]

Сформировать массив из 10 записей следуйщей структуры:
1. Строка из 50 случайных символов.
2. Два вещественных поля X,Y (заполнить случаными числами).
Рассортировать массив в порядке убывания поля Х. Для каждого компоненты: если количество латинских символов в строке превышает количество русских символов, удвоить значение поля Y. Вывести исходный и преобразованый массивы.

program zad6;
uses crt;
const n=10;
type
 MS=record
 stroka:string[50];
 X:real;
 Y:real;
end;

 var
 A:array[1..n] of MS;
 B:array[1..n] of MS;
 f:text;
 i,j:integer;
 r:real;
 kil_lat,kil_rus:integer;

begin
clrscr;
assign(f,'C:\zapisi.txt');
reset(f);
writeln ('Массив до:');

for i:=1 to n do begin
with A[i] do
readln(f,stroka,x,y);
writeln('',A[i].stroka,' ',A[i].x:2:2,' ',A[i].y:2:2);
end;

writeln;
for i:=1 to 9 do
for j:=i+1 to n do
if A[i].x<=A[j].x then begin
r:=A[i].x;
A[i].x:=A[j].x;
A[j].x:=r;

end;
{kil_lat:=0;
kil_rus:=0;

for j:=1 to n do

with A[j] do begin

for i:=1 to 50 do begin

if stroka>='a' and stroka<='z' then kil_lat:=kil_lat+1

else

if stroka>='а' and stroka<='я' then kil_rus:=kil_rus+1;

end;
writeln('Количество латинских букв=',kil_lat);
writeln('Количество русских букв=',kil_rus);

if kil_lat>kil_rus then y:=y*2;

end;}
writeln;
writeln('Массив после:');
writeln;
for i:=1 to n do writeln(A[i].stroka,' ',A[i].x:2:2,' ',A[i].y:2:2);
close(f);
end.

Немогу сообразить как правильно подщитать количество букв в строках и рассортировать ВЕСЬ массив по полю Х.
Помогите исправить ошибки и подсказать что можно зделать.

[Greblin]

Ну сортировка у тебя написана, за исключением того, что нам надо не значения x переставлять, а весь элемент

var r: MS;

for i:=1 to 9 do  
  for j:=i+1 to n do  
    if A[i].x<=A[j].x then 
      begin  
      r:=A[i];   
      A[i] := A[j];   
      A[j] := r;
      end;

А про буквы

for j := 1 to n do
  begin
  kil_lat:=0;  
  kil_rus:=0;    
 
  with A[j] do 
    begin  
    for i:=1 to 50 do 
      begin  
      if stroka[i]>='a' and stroka[i]<='z' then kil_lat:=kil_lat+1  
      else  
        if stroka[i]>='а' and stroka[i]<='я' then kil_rus:=kil_rus+1;  
      end;
    if kil_lat>kil_rus then y:=y*2;
    end;
  end;

[ShnapS]

Тебе цены нету, Спасибо.
Возникает у меня вопрос, почему я не могу зделать с буквами, так как у меня пишет вот здесь ошибку:

 if stroka[i]>='a' and stroka[i]<='z' then kil_lat:=kil_lat+1     
      else     
 if stroka[i]>='а' and stroka[i]<='я' then kil_rus:=kil_rus+1;

Именно вот здесь stroka[i]ТУТ<='z' и stroka[i]ТУТ<='я' говорит оно так:
Error 41: Operand types do not match operator.
Не подскажите в чём может быть дело.

[nikleb]

Скобки поставь.

if (stroka[i]>='a') and (stroka[i]<='z') then kil_lat:=kil_lat+1
else
if (stroka[i]>='а') and (stroka[i]<='я') then kil_rus:=kil_rus+1;

[ShnapS]

Всё огромное спасибо, задачу решил так:

program zad6;
uses crt;
const n=10;
type
MS=record
stroka:string[50];
X:real;
Y:real;
end;
var
A:array[1..n] of MS;
f:text;
i,j:integer;
kil_lat,kil_rus:integer;
r:MS;
begin
clrscr;
assign(f,'C:\zapisi.txt');
reset(f);
writeln ('Массив до:');
for i:=1 to n do begin
readln(f,A[i].stroka,A[i].x,A[i].y);
writeln('',A[i].stroka,' ',A[i].x:2:2,' ',A[i].y:2:2);
end;
writeln;
for i:=1 to 9 do
for j:=i+1 to n do
if A[i].x<=A[j].x then
begin
r:=A[i];
A[i]:=A[j];
A[j]:=r;
end;
for j:=1 to n do begin
kil_lat:=0;
kil_rus:=0;
with A[j] do begin
for i:=1 to 50 do begin
if stroka[i]<='z' then kil_lat:=kil_lat+1
else
if stroka[i]<='я' then kil_rus:=kil_rus+1;
end;
if kil_lat>kil_rus then y:=y*2;
end;
end;
writeln;
writeln('Массив после:');
writeln;
for i:=1 to n do writeln(A[i].stroka,' ',A[i].x:2:2,' ',A[i].y:2:2);
close(f);
end.

PS: Куда там клацать что б Вам репутацию поднять ?