var
f:text;
s,model,scor,mosh:string;
I,,v,maxscor,maxmosh:integer;
begin
assign(f,’c:avto.txt’);
reset(f);
while not eof(f) do
begin
readln(f,s);
for i:=1 to length(s)+1 do
begin
    if s[i]<>’ ‘ then
    begin
        while s[i]<>’ ‘ do
        begin
        model:=concat(model,s[i]);
        inc(i);
        end;
        while s[i]=’ ‘ do
        inc(i);
        while s[i]<>’ ’ do
        begin
        scor:=concat(scor,s[i]);
        inc(i);
        end;
        while s[i]=’ ‘ do
        inc(i);
        while i<=length(s) do
        begin
        mosh:=concat(mosh,s[i]);
        inc(i);
        end;
    end;
end;
writeln(mosh);
val(scor,maxscor,v); (два числа из первой и тртьей строки он преобразовывает как надо)
val(mosh,maxmosh,v); (а вот второе число второй стоки преобразовывает в 0 хотя там 200,почему же так?)
model:=’’;
scor:=’’;
mosh:=’’;
end;
end.