Pascal uzdavinys

program Bevardë20;
 var ilgis2:text;
 	sk, sk2, matvnt, matvnt1, skaicius, g, m, matvnt2 : string;
 	ilgis3, c, b, e, k, f, l, ilgis4, ilgis5, i, j, a, matvnt3 :longint;
 	atsakymas, atsakymas1, h, n, d : real;
procedure Skaiciavimas (var ilgis2:text;
                       	matvnt2:string;
                   	var atsakymas:real);
var sk2, matvnt3:string; k, ilgis5, l, i:longint; n:integer; atsakymas1:real;
 begin
 Assign (ilgis2, 'ilgis.txt');
 Reset(ilgis2);
 While not Eof (ilgis2) do
begin
 	ReadLn(ilgis2, sk2);
 	a := Pos(' ', sk2);
 	matvnt3 := Copy(sk2, 1, a-1);
 	If matvnt3 = matvnt2
   	then begin
       	k := Pos(matvnt2, sk2);
       	If k <> 0
    		then
         	begin
         	ilgis5 := Length(sk2);
         	l := pos(' ', sk2);
         	m := copy(sk2, l+1, ilgis5-l);
         	Val (m, n, i);
         	atsakymas1 := n * atsakymas;
         	end;
    		end;
 	end;
 end;
begin
 Assign (ilgis2, 'ilgis.txt');
 Reset(ilgis2);
 WriteLn('Iveskite skaiciu ir matavimo vieneta, palikdami tarpa tarp ju.');
 ReadLn(sk);
 ilgis3 := Length(sk);
 C := Pos(' ', sk);
 B := ilgis3 - C;
 matvnt := Copy(sk, c+1, B);
 skaicius := Copy(sk, 1, c-1);
 While not Eof (ilgis2) do
begin
 	ReadLn(ilgis2, sk);
 	j := Pos(' ', sk);
 	matvnt1 := Copy(sk, 1, j-1);
 	If matvnt1 = matvnt
   	then begin
       	e := Pos(matvnt, sk);
       	If e <> 0
    		then
         	begin
         	ilgis4 := Length(sk);
         	f := pos(' ', sk);
         	g := copy(sk, f+1, ilgis4-f);
         	Val (g, h, i);
         	Val (skaicius, d, i);
         	atsakymas := d * h;
         	end;
       	end;
end;
 writeLn(atsakymas:2:0, ' mm');
 WriteLn('I koki matavimo vieneta noretumete paversti? (cm, m, km, dm, in, ft, yd, ml)');
 ReadLn(matvnt2);
 Skaiciavimas (ilgis2, matvnt2, atsakymas);
 Writeln(atsakymas1);
 Readln;
end.

Tai, kad nenurodei failo inputo

Bučiau žiauriai dėkingas, jeigu kas nors pamėgintu sutvarkyti :)

Kokia klaida? Ir įdėk failą duomenų.

Man sunkiai sekasi tas programavimas, padėkit kas nors, busiu labai dėkingas :)

ilgis.txt

mm 1
cm 10
m 1000
km 1000000
dm 100
in 25.4
ft 304.8
yd 914.4
ml 1609344

Ne tik programavimas sunkiai sekasi, bet ir problemų aiškinimas :)

Taip ir neišgirdom kkokią klaidą gauni

Tai niekas nepadės? :)

Patikrink ar tas duomenų ir *.pas failai tame pačiame foldery yra. Jei ne, tai bandyk žiūrėti teises to failo.

P.S. pas tave windows'ai?